home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TOT_2.ARJ
/
DEMO.EXE
/
arc
/
DEMSY1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
2KB
|
81 lines
Program DemoSystemOne;
{DEMSY1}
USES DOS,CRT, TOTSYS;
var
Equip: EquipObj;
Mem: MemObj;
OS: OSObj;
Lines: byte;
begin
ClrScr;
Monitor^.SetCondensed;
if Monitor^.ColorOn then
writeln('This system is color')
else
writeln('This system is monochrome');
with Equip do
begin
Init;
Writeln('Machine ID: ',ComputerID);
Writeln('Parallel Ports: ',ParallelPorts);
Writeln('Serial Ports: ',SerialPorts);
Writeln('Floppy Drives: ',Floppydrives);
Writeln('ROM date: ',RomDate);
Writeln('Game Adapter: ',GameAdapter);
Writeln('Serial printer: ',Serialprinter);
Writeln('Math Coprocessor: ',MathChip);
Writeln;
end;
with Mem do
begin
Init;
Writeln('Base memory: ',Basememory,'k');
Writeln('Avail Extended memory: ',ExtMemAvail,'k');
if EMMInstalled then
begin
Writeln('Total Expanded memory: ',MaxExpMem,'k');
Writeln('Avail Expanded memory: ',ExpMemAvail,'k');
Writeln('Expanded memory manager version: '+EMMversion);
end
else
Writeln('Expanded memory not installed: ');
writeln;
end;
with OS do
begin
Init;
Writeln('Operating System Version: '+OSversion);
Writeln('Country Code: ',Country);
write('Currency String: ',Currency,' ');
case CurrencyFmt of
0: writeln('(String leads currency, no space)');
1: writeln('(String follows currency, no space)');
2: writeln('(String leads currency, one space)');
3: writeln('(String follows currency, one space)');
4: writeln('(String replaces decimal separator)');
end; {case}
writeln('Currency Decimal Places: ',CurrencyDecPlaces);
write('Thousands Separator: ','''',ThousandsSep,'''');
writeln(' Decimal Separator: ','''',DecimalSep,'''');
case DateFmt of
USA: writeln('Date Format: MM DD YY');
Europe: writeln('Date Format: DD MM YY');
Japan: writeln('Date Format: YY MM DD');
end; {case}
write('Date separator: ','''',DateSep,'''');
writeln(' Time separator: ','''',TimeSep,'''');
if TimeFmt = 0 then
writeln('Time is displayed on a 12 hour clock')
else
writeln('Time is displayed on a 24 hour clock');
end;
write(' press any key ...');
Repeat until keypressed;
if Lines > 25 then
Monitor^.Set25;
end.